home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 27 / 64er_Magazin_Sonderheft_27_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / sinus demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  481b  |  25 lines
  1. 100 rem demo 1
  2. 105 gcl
  3. 107 x2=0:y2=47
  4. 110 for x = 0 to 318
  5. 114 x1=x
  6. 116 y1=sin(x/319*4*(NULL))*47+47
  7. 120 set,x1,y1
  8. 130 set,x1+1,y1
  9. 140 set,x1,y1+1
  10. 150 set,x1+1,y1+1
  11. 160 next
  12. 170 line,0,47,319,47
  13. 180 line,0,48,319,48
  14. 190 for x = 0 to 319 step 16
  15. 200 line,x,45,x,50
  16. 210 next
  17. 220 char,1,0,"[213]=sin(wt)*[213]m",0
  18. 225 irq
  19. 230 print"spannung an den enden einer rotierenden schleife"
  20. 240 print"   u(max)= +14,3 v"
  21. 250 print"   u(min)= -14,3 v"
  22. 260 print"   w     =   2[255](1/t)"
  23. 280 print"   t     =   0,1 s"
  24. 290 print"   b     =   0,5 t"
  25.